home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / T-COMAL Today / (k)tc.d64 / read'errors.proc < prev    next >
Text File  |  2007-02-28  |  382b  |  16 lines
  1. 9000 //
  2. 9010 PROC READ'ERRORS CLOSED
  3. 9020 //PROC READ'ERRORS BY PHYRNE BACON
  4. 9030 FOR I:=704 TO 732 DO
  5. 9040 READ A
  6. 9050 POKE I,A
  7. 9060 ENDFOR I
  8. 9070 DATA 162,7,32,198,255,32,207,255,141,192,195,32,183,255
  9. 9080 DATA 41,64,208,10,238,201,2,208,238,238,202,2,208,233,96
  10. 9090 //
  11. 9100 OPEN FILE 7,"0:COMALERRORS,R,SEQ",READ
  12. 9110 SYS 704
  13. 9120 CLOSE FILE 7
  14. 9130 ENDPROC READ'ERRORS
  15. 9140 //
  16.